home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
PROGRAMMING
/
DESKLIBC
/
SOURCES.ZIP
/
DeskLib
/
!DLSources
/
Libraries
/
Filing
/
s
/
MakePath
< prev
next >
Wrap
Text File
|
1995-08-26
|
1KB
|
49 lines
; #### # # # #
; # # # # # The FreeWare C library for
; # # ## ### # # # # ### RISC OS machines
; # # # # # # # # # # # ___________________________________
; # # #### ### ## # # # #
; # # # # # # # # # # Please refer to the accompanying
; #### ### #### # # ##### # ### documentation for conditions of use
; ________________________________________________________________________
;
; File: Filing.s.MakePath
; Author: Copyright © 1994, 1995 Sergio Monesi
; Version: 1.01 (6 Jun 1995)
; Purpose: Constructs the full pathname from the directory and leafname
; Mods: 6 June 1995 - changed procedure name to a more
; DeskLib-compliant style
GET ^.h.regdefs
GET ^.h.macros
; char *Filing_MakePath(char *newpath, char *dirname, char *leafname);
PREAMBLE
STARTCODE Filing_MakePath
;
MOVS ip, r0
TEQNE r1, #0
TEQNE r2, #0
MOVEQ r0, #0
MOVEQS pc, lr
loop1
LDRB r3, [r1], #1
TEQ r3, #0
STRNEB r3, [ip], #1
BNE loop1
MOV r3, #46 ; = '.'
STRB r3, [ip], #1
loop2
LDRB r3, [r2], #1
TEQ r3, #0
STRB r3, [ip], #1
BNE loop2
MOVS pc,lr
;
END